Libris Britannia 4/science library(b).zip/science library(b)/HAM_RAD/LOGGING/3090.ZIP/HAM.PRG

Text File | 1987-03-10 | 3KB | 141 lines

SET HEADING OFF
SET SAFETY OFF
* HAM.PRG
* MAIN MENU COMMAND - CALLS ALL OTHER COMMANDS
* REV 10/01/83
* REV 03/08/87 FOR USE ON PC
CLEAR
SET TALK OFF
*!! Logical constant converted.
DO WHILE .T.
ACCEPT 'BAND: ' TO MBAND
CLEAR
*!! Logical constant converted.
DO WHILE .T.
?
?
?
?
? '              ******* HAM PROGRAM MENU *******'
?
?
? '               A - CHANGE BAND'
? '               B - LOG'
? '               C - BEAM HEADING'
? '               D - COUNTRY CHECKLIST'
? '               E - STATE CHECKLIST'
? '               F - TWO LETTER STATE ABREVIATIONS'
? '               G - US QSL MANAGERS LIST'
? '               H - QSL CONFIRMED COUNTS'
? '               I - RECEIVE QSL CARDS'
? '               J - QSL CARDS SENT & NOT RECEIVED'
? '               K - MAINTAINANCE'
?
?
? '               Q - QUIT TO DBASE'
? '               X - EXIT TO DOS'
?
ACCEPT 'ENTER DESIRED ACTION: ' TO ACTION
STORE UPPER(ACTION) TO ACTION
IF ACTION = 'X'
   CLOSE DATABASES
   CLEAR
   QUIT
ENDIF
IF ACTION='Q'
   RELEASE ALL
   CLEAR
   RETURN
ENDIF
IF ACTION='A'
   ACCEPT 'BAND: ' TO MBAND
ENDIF
IF ACTION='B'
   DO LOGS
ENDIF
IF ACTION='C'
   DO BEAM
ENDIF
IF ACTION='D'
   DO COUNTRY
ENDIF
IF ACTION='E'
   DO STATE
ENDIF
IF ACTION='F'
CLEAR
@ 0,23 SAY 'TWO LETTER ABBREVIATIONS FOR STATES'
@ 2,0 SAY 'ALABAMA      =AL'
@ 3,0 SAY 'ALASKA       =AK'
@ 4,0 SAY 'ARKANSAS     =AR'
@ 5,0 SAY 'ARIZONA      =AZ'
@ 6,0 SAY 'CALIFORNIA   =CA'
@ 7,0 SAY 'COLORADO     =CO'
@ 8,0 SAY 'CONNECTICUT  =CT'
@ 9,0 SAY 'DELAWARE     =DE'
@ 10,0 SAY 'FLORIDA      =FL'
@ 11,0 SAY 'GEORGIA      =GA'
@ 12,0 SAY 'HAWAII       =HI'
@ 13,0 SAY 'IDAHO        =ID'
@ 14,0 SAY 'ILLINOIS     =IL'
@ 15,0 SAY 'INDIANA      =IN'
@ 16,0 SAY 'IOWA         =IA'
@ 17,0 SAY 'KANSAS       =KS'
@ 18,0 SAY 'KENTUCKY     =KY'
@ 2,32 SAY 'LOUISIANA     =LA'
@ 3,32 SAY 'MAINE         =ME'
@ 4,32 SAY 'MARYLAND      =MD'
@ 5,32 SAY 'MASSACHUSETTS =MA'
@ 6,32 SAY 'MICHIGAN      =MI'
@ 7,32 SAY 'MINNESOTA     =MN'
@ 8,32 SAY 'MISSISSIPPI   =MS'
@ 9,32 SAY 'MISSOURI      =MO'
@ 10,32 SAY 'MONTANA       =MT'
@ 11,32 SAY 'NEBRASKA      =NE'
@ 12,32 SAY 'NEVADA        =NV'
@ 13,32 SAY 'NEW HAMPSHIRE =NH'
@ 14,32 SAY 'NEW JERSEY    =NJ'
@ 15,32 SAY 'NEW MEXICO    =NM'
@ 16,32 SAY 'NEW YORK      =NY'
@ 17,32 SAY 'NORTH CAROLINA=NC'
@ 18,32 SAY 'NORTH DAKOTA  =ND'
@ 2,62 SAY 'OHIO          =OH'
@ 3,62 SAY 'OKLAHOMA      =OK'
@ 4,62 SAY 'OREGON        =OR'
@ 5,62 SAY 'PENNSYLVANIA  =PA'
@ 6,62 SAY 'RHODE ISLAND  =RI'
@ 7,62 SAY 'SOUTH CAROLINA=SC'
@ 8,62 SAY 'SOUTH DAKOTA  =SD'
@ 9,62 SAY 'TENNESSEE     =TN'
@ 10,62 SAY 'TEXAS         =TX'
@ 11,62 SAY 'UTAH          =UT'
@ 12,62 SAY 'VERMONT       =VT'
@ 13,62 SAY 'VIRGINIA      =VA'
@ 14,62 SAY 'WASHINGTON    =WA'
@ 15,62 SAY 'WEST VIRGINIA =WV'
@ 16,62 SAY 'WISCONSIN     =WI'
@ 17,62 SAY 'WYOMING       =WY'
@ 18,62 SAY '                 '
WAIT
ENDIF
IF ACTION='G'
   DO USQSLMAN
ENDIF
IF ACTION='H'
   DO QSLCOUNT
ENDIF
IF ACTION='I'
   DO QSLIN
ENDIF
IF ACTION='J'
   USE LOG
   DISPLAY FOR SQSL='Y'.AND.RQSL=' '
   WAIT
ENDIF
IF ACTION = 'K'
   DO MAINT
ENDIF
CLEAR
ENDDO
RETURN